home *** CD-ROM | disk | FTP | other *** search
/ MacWorld Online: Hot Shareware / MacWorld CD-ROM Online (Hot Shareware).cdr / MacWorld2 movie / 00209.ls < prev    next >
Encoding:
Text File  |  1996-03-06  |  345 b   |  18 lines
  1. on mouseDown
  2.   global fwdBlock
  3.   if fwdBlock = 1 then
  4.     nothing()
  5.   else
  6.     set the ink of sprite 29 to 36
  7.     set whichFrame to getAt(fwdList, 1)
  8.     deleteAt(fwdList, 1)
  9.     go(whichFrame)
  10.     set C to count(fwdList)
  11.     if C = 0 then
  12.       set fwdBlock to 1
  13.       set the ink of sprite 28 to 32
  14.       updateStage()
  15.     end if
  16.   end if
  17. end
  18.